home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / C / CountRings < prev    next >
Encoding:
Text File  |  1987-11-26  |  1.6 KB  |  85 lines  |  [TEXT/MACA]
  1. (This short procedure can be run while your computer
  2. (is unattended and will count all of the RINGs that
  3. (are echoed to the screen display.  The procedure
  4. (will recycle after 5 seconds of no RINGs.  The
  5. (info is automatically written to an existing file called
  6. (CALLS on the Disk COM.  Of course this can be
  7. (changed to fit your needs
  8.  
  9. (To use this procedure, your modem must be set so
  10. (that it echos a RING to your screen each time your
  11. (computer line receives a ring
  12.  
  13. (I use the buffer at the bottom of the screen 
  14. (available in RR versions 10.2+.  Since this buffer
  15. (causes the top 3 lines of the screen display to
  16. (be lost, the procedure turns off the buffer.
  17.  
  18. (If you don’t use this type buffer (at the bottom), the first three
  19. (lines of the procedure can be deleted.
  20.  
  21. COPYINTO X$,                 BUFFER OFF?
  22. QUERY4
  23. IF NO BBAR
  24.  
  25. (Start procedure
  26. CLEAR
  27. TYPE No incoming calls detected^M
  28. :START
  29. PROMPT RING
  30. LET EQUAL R%,1
  31.  
  32. (Count rings and set default timeout to 5 seconds
  33. :RING
  34. PANICAFTER 5
  35. ONPANIC JUMPTO TIME
  36. PROMPT RING
  37. ADD R%,1
  38. JUMPTO RING
  39.  
  40. (Get time and date in correct formats)
  41. :TIME
  42. GETGLOBAL O%,5
  43. GETGLOBAL D%,6
  44. GETGLOBAL H%,8
  45. GETGLOBAL M%,9
  46. TEST H% > 12
  47. IF YES SUBTRACT H%,12
  48. TEST M% < 10
  49. IF YES COPYINTO T$,0
  50. NUMTOSTRING M%,M$
  51. IF YES CONCAT T$,M$
  52. IF YES COPYINTO M$,T$
  53. NUMTOSTRING H%,H$
  54. NUMTOSTRING R%,R$
  55. NUMTOSTRING O%,O$
  56. NUMTOSTRING D%,D$
  57.  
  58. (Type screen display)
  59. CLEAR
  60. TYPE O$
  61. TYPE /
  62. TYPE D$
  63. TYPE  -- 
  64. TYPE H$
  65. TYPE :
  66. TYPE M$
  67. TYPE   You had 
  68. TYPE R$
  69. TYPE  Rings
  70. TYPE ^M
  71.  
  72. (Send information to disk
  73. USEROPENA 1,COM:CALLS
  74. GETLINE G%,W$
  75. PAUSE 120
  76. CLEAR
  77. TYPE Incoming Call(s) detected^M
  78. USERWRITE 1,W$
  79. USERWRCR 1
  80. USERCLOSE 1
  81.  
  82. (Recycle)
  83. JUMPTO START
  84.